home *** CD-ROM | disk | FTP | other *** search
- // Assignment 4
-
- #include "SAT.h"
-
- SpritePtr ignore;
- short direction;
-
- pascal void HandleSprite (SpritePtr me)
- {
- me->position.h = me->position.h + direction;
- if (me->position.h < 0)
- direction = 1;
- if (me->position.h > 200)
- direction = -1;
- }
-
- pascal void SetupSprite (SpritePtr me)
- {
- me->task = &HandleSprite;
- me->face = SATGetFace(128);
- direction = 1;
- }
-
- main()
- {
- short kTicksPerFrame = 2;
- long t;
-
- SATInitToolbox();
- SATInit(128, 129, 478, 302);
- ignore = SATNewSprite(0, 200, 200, &SetupSprite);
- do
- {
- t = TickCount();
- SATRun(true);
- while ((TickCount () - t) < kTicksPerFrame);
- } while (! Button());
- }